home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / Intro to Viruses.cpt / Intro to Viruses / background_2655.txt < prev    next >
Text File  |  1989-02-18  |  4KB  |  199 lines
  1. -- background: 2655 from stack: in
  2. -- bmap block id: 3081
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. --on opencard
  8. --  get field "title"
  9. --  set the name of this card to char 1 to 27 of it
  10. --end opencard
  11.  
  12.  
  13. on openstack
  14.   push recent card
  15. end openstack
  16.  
  17. on findbtn
  18.   lock screen
  19.   get the short name of the target
  20.   find it in field "title"
  21.   unlock screen with visual barn door open
  22. end findbtn
  23.  
  24.  
  25.  
  26.  
  27. -- part 22 (field)
  28. -- low flags: 03
  29. -- high flags: 0004
  30. -- rect: left=15 top=309 right=336 bottom=499
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 3
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: 
  39.  
  40.  
  41. -- part 3 (field)
  42. -- low flags: 00
  43. -- high flags: 0000
  44. -- rect: left=24 top=42 right=65 bottom=329
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 2
  49. -- text size: 14
  50. -- style flags: 256
  51. -- line height: 18
  52. -- part name: Title
  53. ----- HyperTalk script -----
  54. on closefield
  55.   set the name of this card to char 1 to 27 of target
  56. end closefield
  57.  
  58.  
  59. -- part 11 (field)
  60. -- low flags: 02
  61. -- high flags: 0000
  62. -- rect: left=24 top=64 right=85 bottom=406
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 0
  66. -- font id: 2
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 16
  70. -- part name: Sub-Title
  71.  
  72.  
  73. -- part 4 (field)
  74. -- low flags: 00
  75. -- high flags: 0000
  76. -- rect: left=24 top=84 right=298 bottom=487
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 0
  80. -- font id: 2
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Text
  85.  
  86.  
  87. -- part 6 (button)
  88. -- low flags: 00
  89. -- high flags: 2000
  90. -- rect: left=185 top=311 right=331 bottom=212
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 1014 / 1014
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Prev
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   visual effect wipe right
  102.   go to previous card
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 7 (button)
  108. -- low flags: 00
  109. -- high flags: 2000
  110. -- rect: left=301 top=311 right=331 bottom=328
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 1013 / 1013
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Next
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   visual effect wipe left
  122.   go to next card
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 13 (button)
  128. -- low flags: 00
  129. -- high flags: A000
  130. -- rect: left=45 top=314 right=330 bottom=99
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 2
  135. -- text size: 10
  136. -- style flags: 0
  137. -- line height: 13
  138. -- part name: Contents
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   visual barn door close
  142.   go card "Table of Contents"
  143. end mouseUp
  144.  
  145.  
  146.  
  147. -- part 16 (field)
  148. -- low flags: 03
  149. -- high flags: 0000
  150. -- rect: left=326 top=315 right=329 bottom=404
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 0 / 0
  153. -- text alignment: 0
  154. -- font id: 2
  155. -- text size: 10
  156. -- style flags: 0
  157. -- line height: 13
  158. -- part name: More
  159.  
  160.  
  161. -- part 21 (button)
  162. -- low flags: 00
  163. -- high flags: 2000
  164. -- rect: left=459 top=312 right=336 bottom=487
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 20689 / 20689
  167. -- text alignment: 1
  168. -- font id: 0
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: Home
  173. ----- HyperTalk script -----
  174. on mouseUp
  175.   visual effect iris open
  176.   go Home
  177. end mouseUp
  178.  
  179.  
  180.  
  181. -- part 23 (button)
  182. -- low flags: 00
  183. -- high flags: 2000
  184. -- rect: left=20 top=311 right=331 bottom=47
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 30557 / 30557
  187. -- text alignment: 1
  188. -- font id: 0
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 16
  192. -- part name: Prev
  193. ----- HyperTalk script -----
  194. on mouseUp
  195.   visual barn door close
  196.   go card "table of contents"
  197. end mouseUp
  198.  
  199.